home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1259 / natural.cf_ / natural.cf
Text File  |  1996-03-12  |  4KB  |  214 lines
  1. ; -------------------------------------------------------------------------
  2. ; ----------- EasyCODE(SPX) - Configuration for NATURAL -------------------
  3. ; -------------------------------------------------------------------------
  4.  
  5. [ParseOptions]
  6. Parser=easy-nat.dll
  7.  
  8. [GenOptions]
  9. InitialIndent=0
  10. CompressBlanks=no
  11. GenFileExt=NAT
  12. MaxIndent=-1
  13. MaxLineLength=-1
  14.  
  15. [Settings]
  16. SourceFileFormat=OEM
  17.  
  18. [AvailableConstructs]
  19. Statement=yes
  20. If=yes
  21. Switch=yes
  22. Case=yes
  23. For=yes
  24. While=yes
  25. Repeat=yes
  26. Loop=yes
  27. Exit=yes
  28. Procedure=yes
  29. Call=yes
  30. Function=no
  31. Block=yes
  32. Frame=yes
  33. Condition=yes
  34. And=yes
  35. Or=yes
  36. Not=yes
  37.  
  38. [InsertMenuStrings]
  39. ;Statement=
  40. ;If=
  41. Switch="DECIDE FOR FIRST &CONDITION"
  42. ;When=
  43. Case="&DECIDE ON"
  44. ;Of=
  45. ;For=
  46. ;While=
  47. ;Repeat=
  48. ;Loop=
  49. ;Exit=
  50. Procedure="DEFINE &SUBROUTINE"
  51. Call=&PERFORM
  52. ;Function=
  53. ;Block=
  54. ;Frame=
  55. ;Condition=
  56. ;And=
  57. ;Or=
  58. ;Not=
  59.  
  60. [EncloseMenuStrings]
  61. ;If=
  62. ;Then=
  63. ;Else=
  64. Switch="DECIDE FOR FIRST &CONDITION"
  65. ;When=
  66. WhenNone="W&HEN NONE"
  67. Case="&DECIDE ON"
  68. ;Of=
  69. Otherwise="&NONE VALUES"
  70. ;For=
  71. ;While=
  72. ;Repeat=
  73. ;Loop=
  74. Procedure="DEFINE &SUBROUTINE"
  75. ;Function=
  76. ;Block=
  77. ;Frame=
  78. ;Condition=
  79. ;And=
  80. ;Or=
  81. ;Not=
  82.  
  83. [KeywordStrings]
  84. If=IF
  85. Then=THEN
  86. Else=ELSE
  87. Switch="DECIDE FOR FIRST CONDITION"
  88. ;FirstWhen=
  89. When=WHEN
  90. WhenNone="WHEN NONE"
  91. Case="DECIDE ON"
  92. ;FirstOf=
  93. Of=OF
  94. Otherwise="NONE VALUES"
  95. For=FOR
  96. While=WHILE
  97. Repeat=REPEAT
  98. Loop=LOOP
  99. Procedure="DEFINE SUBROUTINE"
  100. ;Function=
  101. ;Block=
  102. And=AND
  103. Or=OR
  104. Not=NOT
  105.  
  106. [MetaStrings]
  107. ;SegmentHeader=
  108. ;Statement=
  109. ;Condition=
  110. ;Expression=
  111. ;Value=
  112. ;ForStatement=
  113. ;ProcedureHeader=
  114. ;ProcedureCall=
  115. ;FunctionHeader=
  116. ;BlockComment=
  117. ;FrameHeader=
  118. ;FrameFooter=
  119.  
  120. [GenStrings]
  121. Statement=''
  122. EndStatement='\N'
  123.  
  124. If='\NIF \3+'
  125. ThenBody='\3-\NTHEN\n\3+'
  126. ElseBody='\3-\NELSE\n\3+'
  127. EmptyElseBody=''
  128. EndIf='\N\3-END-IF\n'
  129.  
  130. ; Warning!
  131. ; The GenStrings for the CASE construct have been modified
  132. ; in an incompatible way, because the parser places the keywords
  133. ; VALUE, ANY VALUE, and ALL VALUE into the OF branches before the values.
  134. ; Therefore the automatic generation of the keyword VALUE in FirstOf
  135. ; and FurtherOf has been deleted. Also the templates ALLVALUE.SPX and
  136. ; ANYVALUE.SPX have been deleted. The keyword VALUE must be entered by
  137. ; the user before the value of the OF branch.
  138. Case='\NDECIDE ON \10+'
  139. FirstOf='\N\8-'
  140. FurtherOf='\N\2-'
  141. OfBody='\N\2+'
  142. OtherwiseBody='\N\2-NONE VALUES\2+\n'
  143. EmptyOtherwiseBody='\N\2-NONE VALUES IGNORE\2+\n'
  144. EndCase='\N\4-END-DECIDE\n'
  145.  
  146. Switch='\NDECIDE FOR FIRST CONDITION'
  147. FirstWhen='\2+\nWHEN \5+'
  148. FurtherWhen='\N\3-WHEN \5+'
  149. WhenBody='\N\2-'
  150. WhenNoneBody='\N\3-WHEN NONE \3+\n'
  151. EmptyWhenNoneBody='\N\3-WHEN NONE IGNORE\3+\n'
  152. EndSwitch='\N\5-END-DECIDE\n'
  153.  
  154. For='\NFOR \4+'
  155. ForBody='\N\2-'
  156. EndFor='\N\2-END-FOR\n'
  157.  
  158. While='\NREPEAT WHILE \13+'
  159. WhileBody='\N\13-\2+'
  160. EndWhile='\N\2-END-REPEAT\n'
  161.  
  162. Repeat='\NREPEAT\n\2+'
  163. Until='\NUNTIL \6+'
  164. EndRepeat='\N\8-END-REPEAT\n'
  165.  
  166. Loop='\NREPEAT\n\2+'
  167. EndLoop='\2-\NEND-REPEAT\n'
  168.  
  169. Exit='\NIF \3+'
  170. EndExit='\N\1-ESCAPE BOTTOM\n\2-END-IF\n'
  171.  
  172. Procedure='\NDEFINE SUBROUTINE \18+'
  173. ProcedureBody='\N\18-\2+'
  174. EndProcedure='\N\2-END-SUBROUTINE\n\n'
  175.  
  176. Call='\NPERFORM \8+'
  177. EndCall='\N\8-'
  178.  
  179. ; Warning!
  180. ; The GenStrings Function and FunctionBody are not provided,
  181. ; because the Function construct is not supported by NATURAL.
  182. ; Please use the Procedure construct instead!
  183. ; Due to the GenString EndFunction you will find the following hint 
  184. ; in the generated source program:
  185. EndFunction='\s\0:\n\nWarning! Function construct not allowed.\n\n\r'
  186.  
  187. Block='\N/* \"\n\i/* "'
  188. BlockBody='\n\2+'
  189. EndBlock='\N\2-'
  190.  
  191. Frame='\N'
  192. FrameBody='\N\2+'
  193. EndFrameBody='\N\2-'
  194. EndFrame='\N'
  195.  
  196. BeginAnd='    (\5+'
  197. And=')\n\5-AND (\5+'
  198. EndAnd=')\5-'
  199. BeginOr='    (\5+'
  200. Or=')\n\5-OR  (\5+'
  201. EndOr=')\5-'
  202. BeginNot='NOT (\5+'
  203. EndNot=')\5-'
  204. Condition=''
  205. EndCondition=''
  206.  
  207. Segment='\N/* \"\n\i/* "'
  208. SegmentBody='\N\2+'
  209. EndSegment='\N\2-'
  210.  
  211. TopSegment='/* Generated by \%PNAME% V\%PVER% at \%TIME%\n/* with \%CFG%\n\n/* \"\n/* "'
  212. TopSegmentBody='\n\n'
  213. EndTopSegment='\N'
  214.